﻿// Learn more about F# at http://fsharp.net. See the 'F# Tutorial' project
// for more guidance on F# programming.

#load "Library1.fs"
open BTalk.Rsa
open System;

let x = 10000000;;
let upperBound =  ((double)x 
    |> Math.Sqrt
    |> Convert.ToInt32)

let allNumbers = ref [1..x] in
    for div = 2 to upperBound do
        allNumbers := List.filter(fun num -> (num % div <> 0 || div >= num)) !allNumbers
done;

print_any(allNumbers);;

